if (!require("tidyverse")) installed.packages("tidyverse")

rm(list = ls())

df0 <- readxl::read_excel("./rawData/Lobar_data.xlsx",1) %>% 
  dplyr::rename_all(tolower) %>%
  mutate(across(.cols = c(group,sex,bronchoscopy,complications), .fns = as.factor))


saveRDS(df0,file = 'rds/rawData.RDS')
